home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / supr2.dir / 00073_Script_aGirl < prev    next >
Text File  |  1994-11-11  |  5KB  |  147 lines
  1. property mySprite, myBaseCast, myRaderCast, myRaderSprite,myBlockList
  2. on birth me, aSprite, aBaseCast, aRaderSprite, aRaderCast, aBlockList
  3.   set myBlockList = aBlockList
  4.   set mySprite = aSprite
  5.   set myRaderCast = aRaderCast
  6.   set myRaderSprite = aRaderSprite
  7.   set myBaseCast = aBaseCast
  8.   set the castnum of sprite mySprite to myBaseCast
  9.   puppetSprite mySprite, true
  10.   puppetSprite myRaderSprite, true
  11.   return me
  12. end
  13.  
  14. on mMove me
  15.   PUT RANDOM(4) INTO DIRECTION
  16.   IF DIRECTION = 1 THEN mGirlU
  17.   ELSE IF DIRECTION = 2 THEN mGirlD
  18.   ELSE IF DIRECTION = 3 THEN mGirlR
  19.   ELSE
  20.     mGirlL
  21.   END IF
  22. end
  23.  
  24. ON mGIRLU me
  25.   SET THE CASTNUM OF SPRITE mySprite TO myBaseCast + 1
  26.   SET THE LOCV OF SPRITE myRaderSprite TO THE LOCV OF SPRITE myRaderSprite - 72
  27.   UPDATESTAGE
  28.   REPEAT WITH SPNO in myBlockList
  29.     IF SPRITE myRaderSprite INTERSECTS SPNO THEN
  30.       SET THE LOCV OF SPRITE myRaderSprite TO THE LOCV OF SPRITE myRaderSprite + 72
  31.       UPDATESTAGE
  32.       EXIT
  33.     END IF
  34.   END REPEAT
  35.   
  36.   IF NOT(SPRITE myRaderSprite WITHIN 3) THEN
  37.     SET THE LOCV OF SPRITE myRaderSprite TO THE LOCV OF SPRITE myRaderSprite + 72
  38.     UPDATESTAGE
  39.   ELSE
  40.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  41.     UPDATESTAGE
  42.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  43.     UPDATESTAGE
  44.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  45.     UPDATESTAGE
  46.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  47.     UPDATESTAGE
  48.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  49.     UPDATESTAGE
  50.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  51.     UPDATESTAGE
  52.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  53.     UPDATESTAGE
  54.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite - 9
  55.     UPDATESTAGE
  56.   END IF
  57. END
  58.  
  59. ON mGirlD me
  60.   SET THE CASTNUM OF SPRITE mySprite TO myBaseCast
  61.   SET THE LOCV OF SPRITE myRaderSprite TO THE LOCV OF SPRITE myRaderSprite + 72
  62.   UPDATESTAGE
  63.   REPEAT WITH SPNO in myBlockList
  64.     IF SPRITE myRaderSprite INTERSECTS SPNO THEN
  65.       SET THE LOCV OF SPRITE myRaderSprite TO THE LOCV OF SPRITE myRaderSprite - 72
  66.       UPDATESTAGE
  67.       EXIT
  68.     END IF
  69.   END REPEAT
  70.   
  71.   IF NOT(SPRITE myRaderSprite WITHIN 3) THEN
  72.     SET THE LOCV OF SPRITE myRaderSprite TO THE LOCV OF SPRITE myRaderSprite - 72
  73.     UPDATESTAGE
  74.   ELSE
  75.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  76.     UPDATESTAGE
  77.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  78.     UPDATESTAGE
  79.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  80.     UPDATESTAGE
  81.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  82.     UPDATESTAGE
  83.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  84.     UPDATESTAGE
  85.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  86.     UPDATESTAGE
  87.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  88.     UPDATESTAGE
  89.     SET THE LOCV OF SPRITE mySprite TO THE LOCV OF SPRITE mySprite + 9
  90.     UPDATESTAGE
  91.   END IF
  92. END
  93.  
  94. ON mGirlR me
  95.   SET THE CASTNUM OF SPRITE mySprite TO myBaseCast + 3
  96.   SET THE LOCH OF SPRITE myRaderSprite TO THE LOCH OF SPRITE myRaderSprite + 48
  97.   UPDATESTAGE
  98.   REPEAT WITH SPNO in myBlockList
  99.     IF SPRITE myRaderSprite INTERSECTS SPNO THEN
  100.       SET THE LOCH OF SPRITE myRaderSprite TO THE LOCH OF SPRITE myRaderSprite - 48
  101.       UPDATESTAGE
  102.       EXIT
  103.     END IF
  104.   END REPEAT
  105.   
  106.   IF NOT(SPRITE myRaderSprite WITHIN 3) THEN
  107.     SET THE LOCH OF SPRITE myRaderSprite TO THE LOCH OF SPRITE myRaderSprite - 48
  108.     UPDATESTAGE
  109.   ELSE
  110.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite + 12
  111.     UPDATESTAGE
  112.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite + 12
  113.     UPDATESTAGE
  114.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite + 12
  115.     UPDATESTAGE
  116.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite + 12
  117.     UPDATESTAGE
  118.   END IF
  119. END
  120.  
  121. ON mGirlL me
  122.   SET THE CASTNUM OF SPRITE mySprite TO myBaseCast + 2
  123.   SET THE LOCH OF SPRITE myRaderSprite TO THE LOCH OF SPRITE myRaderSprite - 48
  124.   UPDATESTAGE
  125.   REPEAT WITH SPNO in myBlockList
  126.     IF SPRITE myRaderSprite INTERSECTS SPNO THEN
  127.       SET THE LOCH OF SPRITE myRaderSprite TO THE LOCH OF SPRITE myRaderSprite + 48
  128.       UPDATESTAGE
  129.       EXIT
  130.     END IF
  131.   END REPEAT
  132.   
  133.   IF NOT(SPRITE myRaderSprite WITHIN 3) THEN
  134.     SET THE LOCH OF SPRITE myRaderSprite TO THE LOCH OF SPRITE myRaderSprite + 48
  135.     UPDATESTAGE
  136.   ELSE
  137.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite - 12
  138.     UPDATESTAGE
  139.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite - 12
  140.     UPDATESTAGE
  141.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite - 12
  142.     UPDATESTAGE
  143.     SET THE LOCH OF SPRITE mySprite TO THE LOCH OF SPRITE mySprite - 12
  144.     UPDATESTAGE
  145.   END IF
  146. END
  147.